library(diffcoexp)
data(gse4158part)

allowWGCNAThreads()
res=diffcoexp(exprs.1 = exprs.1, exprs.2 = exprs.2, r.method = "spearman" )

str(res)